home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / DISKSEARCH.ARC / SRCH DSK 2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  886 b   |  34 lines
  1. 1 ;SRCH DSK 2
  2. 5 RDDSK JSR STP;CHECK RUN/STOP KEY
  3. 10 LDA #$08
  4. 20 JSR LIST
  5. 30 LDY #$00
  6. 40 LP3 LDA MR1,Y;READ BYTES $0302 TO 03FF IN 1541 RAM
  7. 50 JSR OUT
  8. 60 INY
  9. 70 CPY #$06
  10. 80 BNE LP3
  11. 90 JSR UNLIS
  12. 100 LDA #$08
  13. 110 JSR TALK;SET UP DISK TO SEND BYTES ON SERIAL BUS
  14. 120 LDY #$02
  15. 125 NEWIN LDX #$00:STX X;SET SPARE X TO 0
  16. 130 NEXTIN JSR IN;GET A BYTE FROM SERIAL BUS
  17. 135 INY:CPY #$FF:BEQ LP6;BRANCH ALL BYTES READ
  18. 140 LDX X;HOLDS COUNT OF BYTES FOUND
  19. 150 CMP SRCH,X;HOLDS BYTES SEARCHING FOR
  20. 160 BNE NEWIN;NO MATCH TRY AGAIN
  21. 170 INX:CPX STRING:BEQ PRTDATA;IF X = LENGTH OF SEARCH
  22. 171 ;STRING THEN ALL FOUND PRINT IT!!
  23. 180 STX X;IF NOT KEEP TRACK OF HOW MANY FOUND
  24. 190 JMP NEXTIN;GET ANOTHER BYTE
  25. 200 PRTDATA JSR UNTLK
  26. 210 JMP PRNTDATA;ROUTINE TO PRINT TRK & SEC TO SCREEN
  27. 220 LP6 JSR UNLIS
  28. 230 JMP INCR;DEC SEC # AND INC TRK #
  29. 240 STP JSR STOP
  30. 250 BNE NOSTOP;RUN/STOP KEY NOT PRESSED
  31. 260 JMP END;KEY PRESSED TERMINATE
  32. 270 NOSTOP RTS
  33. 280 .FILE SRCH DSK 3
  34.